﻿Public Class Frm_MenuPrincipal

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Frm_MenuPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim login As New Login
        Dim result As DialogResult = login.ShowDialog()
        If (result <> Windows.Forms.DialogResult.OK) Then
            Me.Close()
        End If
    End Sub

    Private Sub MantUsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantUsuariosToolStripMenuItem.Click
        Dim mantUsers As New Frm_MantUsers
        mantUsers.ShowDialog()
    End Sub
End Class